home *** CD-ROM | disk | FTP | other *** search
/ iBrowse Update Disc / iBrowse Update Disc.iso / distrib / boot / !Boot / Utils / SetChoices < prev    next >
Text File  |  1998-02-26  |  913b  |  19 lines
  1. IfThere <Boot$Dir>.RO<Boot$OSVersion>Hook.Boot then SetEval Boot$Hook -1 else SetEval Boot$Hook 0
  2. IfThere <Boot$Dir>.SiteHook then SetEval Site$Hook -1 else SetEval Site$Hook 0
  3. If NOT Boot$Hook Then Error Support for RISC OS version <Boot$OSVersion> is missing - reinstall !Boot
  4.  
  5. Set Choices$Path <Boot$Dir>.RO<Boot$OSVersion>Hook.
  6. /<Boot$Dir>.Utils.NetChoices
  7. If Site$Hook   Then Set Choices$Path Boot:SiteHook.,<Choices$Path>
  8. If Boot$Remote Then Set Choices$Path Boot:MchConfig.<Boot$Unique>.,<Choices$Path> Else Set Choices$Path Boot:Choices.,<Choices$Path>
  9. If Boot$Remote Then Set Choices$Dir  Boot:MchConfig.<Boot$Unique> Else Set Choices$Dir Boot:Choices
  10. Set Choices$Write   <Choices$Dir>
  11. Set Boot$ToBeLoaded <Choices$Write>.Boot.PreDesk
  12. Set Boot$ToBeTasks  <Choices$Write>.Boot.Tasks
  13.  
  14. Set BootResources$Dir  <Boot$Dir>.Resources
  15. Set BootResources$Path <BootResources$Dir>.
  16.  
  17. Unset Boot$Hook
  18. Unset Site$Hook
  19.